home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / citta / mi088.dir / 00011_Text_11.txt < prev    next >
Text File  |  1983-02-02  |  2KB  |  86 lines
  1. --------------------- sblocco terzo frame
  2.  
  3. on mouseup
  4.   if the mouseH > 53  and the mouseH <562 and the mouseV >0 and the mouseV < 450 then
  5.     global m_blocca, scrolla,blocco
  6.     set m_blocca = false
  7.     set scrolla = true
  8.     set blocco = false
  9.     ---------------------------------------------------------freccette
  10.     set the visible of sprite 20 to false
  11.     set the visible of sprite 21  to false
  12.     ---------------------------------------------------------elem. dida
  13.     set the visible of sprite 22  to false
  14.     set the visible of sprite 23  to false
  15.   end if
  16. end
  17.  
  18. ------------------------------ script hilite
  19.  
  20. on mouseUp
  21.   global ferma,blocco
  22.   
  23.   if ferma = false then
  24.     set ferma = true
  25.     set blocco = true
  26.     repeat with a = 367 to 368
  27.       set the castnum of sprite 5 to a
  28.       updatestage
  29.     end repeat
  30.     beep
  31.   end if
  32.   repeat with b = 1 to 100
  33.   end repeat
  34.   
  35.   --  if  blocco = true then
  36.   sound close 1
  37.   global scrolla,  m_blocca, rsc,blocco
  38.   
  39.   set m_blocca to true
  40.   set scrolla to false
  41.   set rsc to 1
  42.   
  43.   duplicate cast "D03721A",499
  44.   vap "su",272,"nobeep"
  45.   
  46.   set the visible of sprite 20 to true
  47.   set the visible of sprite 21 to true
  48.   set the visible of sprite 22 to true
  49.   set the visible of sprite 23 to true
  50.   
  51.   --  dontpassevent
  52.   --else
  53.   --pass
  54.   --  end if
  55.   set the castnum of sprite 5 to 355
  56.   go "corde"
  57.   updatestage
  58.   --sound playFile 1, "Ai088pi.aif"   
  59. end
  60. --------------------------script primo frame
  61. on enterFrame
  62.   sound close 1
  63.   global scrolla, dove, m_blocca, pallina,audio,rsc,ferma,blocco
  64.   set ferma = false
  65.   set pallina to 121
  66.   set audio to 119
  67.   set the castNum of sprite 40 to 119
  68.   set dove =0
  69.   set m_blocca to false
  70.   set scrolla = true
  71.   UPDATESTAGE
  72.   
  73.   set dove to 0
  74.   if blocco = false then
  75.     viff 20,23
  76.     end if
  77.     scu
  78.     updatestage
  79.     
  80. end
  81. ---------------------------------------- ricordati di settare blocco = false : nel menu
  82.  
  83.  
  84. ------------------- coordinate dida
  85.  
  86. 236 ; 69